home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 6
/
FM Towns Free Software Collection 6.iso
/
windows
/
wincss
/
rlctyok2.css
< prev
next >
Wrap
Cascading Style Sheet File
|
1993-07-08
|
275b
|
14 lines
// RLC直列回路 その2
// S:共振の鋭さ
>PARAM[S:10,100]
>INICON[Q01=0,Q02=0]
>TIMER[.1,.0002]
>GRAPH[EU,EC/10]
TAU=.005:PI=3.14159:W=2*PI*50:THO=0
L=.01:C=.001
R=1/S*SQRT(L/C)
P1=R*SQRT(C/L)/2:P2=1/SQRT(L*C)
EU=SINE(TAU,W,THO)
Q=CMPXPL(Q01,Q02,P1,P2,EU/L)
EC=Q/C